﻿
Imports QMSAPIStarter.QMSAPIService
Imports QMSAPIStarter.QMSAPIStarter.ServiceSupport
Module Main


    Dim strConsoleInput As String

    Sub Main()
        Dim ExitCode As Boolean = False

        Dim QMS As String = "http://10.0.0.25:4799/QMS/Service"
        Dim Client As QMSClient = New QMSClient("BasicHttpBinding_IQMS", QMS)
        Dim myServices() As ServiceInfo

        ServiceKeyClientMessageInspector.ServiceKey = Client.GetTimeLimitedServiceKey()
        Console.WriteLine(ServiceKeyClientMessageInspector.ServiceKey)

        myServices = Client.GetServices(ServiceTypes.All)

        For Each ServiceInfo In myServices
            Console.WriteLine(ServiceInfo.Name.ToString)
        Next


            'Do
            '    strConsoleInput = Console.ReadKey.ToString
            'Loop While ExitCode = False

            strConsoleInput = Console.ReadKey.ToString





    End Sub

End Module
